﻿Imports System.Resources
Imports System.Reflection

Public Class Languages
    Private GlobalRM As New ResourceManager("WebSitemap_Localizer.Global", Assembly.GetExecutingAssembly())

    Public Function getLanguages() As DataTable
        Dim dt As New DataTable("Languages")
        dt.Columns.Add("lngName")
        dt.Columns.Add("lngIsoCode")

        dt.Rows.Add(String.Empty, String.Empty)
        dt.Rows.Add(GlobalRM.GetString("lngEnglish"), "en")
        dt.Rows.Add(GlobalRM.GetString("lngItalian"), "it")
        dt.Rows.Add(GlobalRM.GetString("lngGerman"), "de")
        dt.Rows.Add(GlobalRM.GetString("lngFrench"), "fr")
        dt.Rows.Add(GlobalRM.GetString("lngSpanish"), "es")
        dt.Rows.Add(GlobalRM.GetString("lngPortuguese"), "pt")

        Return dt
    End Function
End Class
